home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / ML_3D_Clickbuttons.AMOS / ML_3D_Clickbuttons.amosSourceCode
AMOS Source Code  |  1995-12-30  |  1KB  |  87 lines
  1. '
  2. '********************************************
  3. '
  4. '            3D SCREEN DISPLAY   
  5. '            ----------------- 
  6. '               SWITCH DEMO
  7. '               -----------
  8. '
  9. '         By Malcolm Lavery 1993 
  10. '
  11. '********************************************
  12. '
  13. '
  14. Screen Open 0,640,256,16,Hires
  15. Palette $0,$FFF,,,,$DDD,$AAA,$555,$F00,$F0,$F
  16. Curs Off : Cls 0 : Flash Off 
  17. '
  18. '
  19. '
  20. '
  21. _3D[0,0,640,250,0]
  22. _3D[4,4,311,241,0]
  23. _3D[100,100,30,30,0]
  24. '
  25. '
  26. Ink 0,6
  27. Text 75,90,"Click mouse"
  28. Text 75,145,"In the box"
  29. '
  30. '
  31. '
  32. Reserve Zone 1
  33. '
  34. '
  35. Set Zone 1,100,100 To 130,130
  36. '
  37. '
  38. '
  39. Do 
  40.    '
  41.    '
  42.    If Mouse Click and Mouse Zone=1
  43.       '
  44.       _3D[100,100,30,30,1]
  45.       Bell 
  46.       Wait 10
  47.       _3D[100,100,30,30,0]
  48.       '
  49.    End If 
  50.    '
  51.    '
  52. Loop 
  53.  
  54. '
  55. '
  56. '
  57. '
  58. Procedure _3D[X,Y,WIDTH,HEIGHT,IN_OUT]
  59.    '
  60.    '
  61.    '
  62.    If IN_OUT=0
  63.       HILIGHT=5
  64.       SHADOW=7
  65.    End If 
  66.    '
  67.    '
  68.    If IN_OUT=1
  69.       HILIGHT=7
  70.       SHADOW=5
  71.    End If 
  72.    '
  73.    '
  74.    Ink HILIGHT
  75.    Draw X,Y To X+WIDTH,Y
  76.    Draw X,Y To X,Y+HEIGHT
  77.    '
  78.    Ink SHADOW
  79.    Draw X+WIDTH,Y To X+WIDTH,Y+HEIGHT
  80.    Draw X+WIDTH,Y+HEIGHT To X,Y+HEIGHT
  81.    '
  82.    Ink 6
  83.    Bar X+1,Y+1 To X+WIDTH-1,Y+HEIGHT-1
  84.    '
  85.    '
  86.    '
  87. End Proc